imports Microsoft.VisualBasic
imports System
imports System.Collections
imports System.Messaging

public module MyModule
	sub Main
         Dim workQueue As MessageQueue

        workQueue = New MessageQueue
		'workQueue.Path = "FormatName:DIRECT=TCP:PADMSMQMAsynchroon\private$\PadmMessages"
        'workQueue.Path = "FormatName:DIRECT=TCP:10.130.107.28\private$\PadmMessages"
		'workQueue.Path = "FormatName:DIRECT=OS:10.130.107.28\private$\PadmMessages"
		'workQueue.Path = "FormatName:DIRECT=HTTP://PADMSMQMAsynchroon.infohos.be/msmq/PRIVATE$/PadmMessages"
		'workQueue.Path = "FormatName:DIRECT=HTTP://alexbaud.infohos.Be/msmq/PadmMessages"
		'workQueue.Path = "FormatName:DIRECT=TCP:10.130.107.4\private$\idms"
		workQueue.Path = "FormatName:DIRECT=OS:TURNPADMDB\private$\idms"

		If workQueue.CanRead And workQueue.CanWrite Then
            msgbox ("test ok")
		else
			msgbox ("test NOK")
		end if 

	end sub

	#region "Helper methods"

	sub WL(text as object)
		Console.WriteLine(text)
	end sub

	sub WL(text as object, paramarray args as object())
		Console.WriteLine(text.ToString(), args)
	end sub
		
	sub RL()
		Console.ReadLine()
	end sub
	
	sub Break() 
		System.Diagnostics.Debugger.Break()
	end sub

    #end region

end module